home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 7 / Eagles_Nest_Mac_Collection_Disc_7.TOAST / MacWEEK / MacWEEKMacro / MacWEEK News Macro next >
Text File  |  1993-09-17  |  1KB  |  28 lines
  1. //Macro to reformat the MacWEEK News file into setext format for easy viewing.
  2. //Crudely put together by Breadfan on 9/10/93.
  3.  
  4. //search and destroy pointless spaces at end of paragraphs.
  5. Find/Replace ":b+$" "" "Wagt"
  6. //set cursor position to 0,0 (top of page)
  7. SetSelect(0,0)
  8. //begin loop
  9. loop:
  10. //find the title for each article and select it - exits the macro if not found
  11. Find Next "News\:\s.+\r|Gateways\:\s.+\r|GA\:\s.+\r|BusinessWatch\:\s.+\r|Special Report\:\s.+\r|Review\:\s.+\r|ProductWatch\:\s.+\r|Mac the Knife\:\s.+\r" "gat-WT"
  12. //clears the clipboard
  13. Copy "" ""
  14. //copies the found and selected text to the clipboard
  15. Copy
  16. //brings the clipboard window to the front
  17. Show Clipboard "On"
  18. //replace each individual character in the clipboard with a hyphen
  19. Find/Replace "." "-" "gat"
  20. //closes the clipboard window
  21. Show Clipboard "Off"
  22. //move the cursor to the right effectively placing the cursor at the
  23. //beginning of the line following the title.
  24. Key 
  25. //pastes the content of the clipboard into the document
  26. Paste
  27. //returns to the beginning of the loop
  28. goto loop